home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
zbpc_460.zip
/
UTILITY.EXE
/
ATTRIBS.BAS
next >
Wrap
BASIC Source File
|
1991-05-22
|
896b
|
24 lines
COLOR,31
CLS
INPUT File$
File$ = File$ + CHR$(0)
Varptr% = VARPTR(File$)
Varseg% = VARSEG
MACHLG &1E,&8E,&1E,Varseg%,&8B,&16,Varptr%,&42,&B0,&00,&B4,&43,&CD,&21,&1F,&89
MACHLG &0E,CX%,&A3,AX%
IF AX% = 2 OR AX% = 3 OR AX% = 5 CX% = -1
LONG IF CX% <> -1
PRINT,,"File attributes: " : PRINT
IF CX% = 0 PRINT,, "None"
IF CX% > 31 PRINT,, "Archive Set" : CX% = CX%-32
IF CX% > 15 PRINT,, "Subdirectory" : CX% = CX%-16
IF CX% > 7 PRINT,, "Volume label" : CX% = CX%-8
IF CX% > 3 PRINT,, "System file" : CX% = CX%-4
IF CX% > 1 PRINT,, "Hidden file" : CX% = CX%-2
IF CX% = 1 PRINT,, "Read-only file"
XELSE
PRINT "Invalid filename or file not found"
END IF
"Freeze"
IFINKEY$=""GOTO"Freeze"